"islandcities" <-
structure(list(country = structure(c(3, 4, 7, 1, 1, 3, 4, 7, 
2, 4, 3, 5, 5, 4, 4, 3, 4, 6, 1), .Label = c("Australia", "Cuba", 
"Indonesia", "Japan", "Philippines", "Taiwan", "United Kingdom"
), class = "factor"), Population = c(9.4, 8.1, 6.9, 3.7, 3.2, 
2.7, 2.6, 2.6, 2.2, 2.1, 1.9, 1.8, 1.8, 1.7, 1.5, 1.5, 1.5, 1.4, 
1.4)), .Names = c("country", "Population"), class = "data.frame", row.names = c("Jakarta", 
"Tokyo", "London", "Sydney", "Melbourne", "Surabaya", "Osaka", 
"Manchester", "Havana", "Nagoya", "Bandung", "Quezon City", "Manila", 
"Sapporo", "Kobe", "Semarang", "Kyoto", "Gaoxiong", "Brisbane"
))
